home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / mus / midi / CAMD_Toolkit.lha / PlayMF / Source / AsmSupport.a next >
Text File  |  1998-02-24  |  454b  |  36 lines
  1.         ;
  2.         ; Some 32/64 bit calculation stuff for MIDI timing
  3.         ;
  4.  
  5.         Include    "Utility/Utility_lib.i"
  6.  
  7.         SECTION TEXT,CODE
  8.  
  9.         XDEF _AddAbsTime
  10.         XDEF _CalcFillClock
  11.  
  12.         ; a0: &abstimeLO
  13.         ; a1: &abstimeHI
  14.         ; d0: tempo
  15.         ; d1: lowclock
  16.         ; d2: division
  17.  
  18. _AddAbsTime    mulu.l d1,d1:d0
  19.         divu.l d2,d1:d0
  20.         add.l d0,(a0)
  21.         bcc.s    .skip1
  22.         addq.l    #1,(a1)
  23. .skip1        rts
  24.  
  25.  
  26.         ; d0: abstimeLO
  27.         ; d1: abstimeHI
  28.         ; d2: divisor
  29.  
  30. _CalcFillClock    divu.l    d2,d1:d0
  31.         rts
  32.  
  33.  
  34.  
  35.         END
  36.